home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 56 / 64er_Magazin_Sonderheft_56_19xx_Markt__Technik_de_Side_B.d64 / division 2000 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  686b  |  32 lines
  1. 1 print"[147]";
  2. 5 gosub 200:input x:print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  3. 6 gosub 200:input y:print" ergibt:"
  4. 10 rem x/y
  5. 20 ify<>int(y)thenx=x*10:y=y*10:goto20
  6. 21 if y>2000 then print"untersuche bis 2000 stellen auf periode":dim r(2000):goto 30
  7. 22 dim r(y)
  8. 30 n=int(x/y):x=x-y*n
  9. 40 r(km)=x
  10. 49 if peek(211)=0 or peek(211)=40 then print"";
  11. 50 printright$(str$(n),len(str$(n))-1);:ifk=0thenprint".";
  12. 51 ifkm=0then 55
  13. 52 forf=0tokm-1
  14. 53 if r(km)=r(f) then 100
  15. 54 next
  16. 55 n=0:k=1:km=km+1
  17. 60 x=x*10
  18. 70 goto 30
  19. 100 for d=1tokm-f:print"[157]";
  20. 102 if peek(211)=39 or peek(211)=79 then print"[145]";
  21. 105 next
  22. 110 print"[145]";
  23. 120 for d=1tokm-f:print"[164]";
  24. 122 if peek(211)=0 or peek(211)=40 then print"";
  25. 125 next
  26. 130 print:print:print:print:print
  27. 150 get a$:if a$="" then 150
  28. 160 run
  29. 200 poke 631,20:poke 632,20:poke 633,20
  30. 201 poke 634,32:poke 635,32:poke 636,32
  31. 205 poke 198,6:return
  32.